home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / Functions / TIMEDELAY.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-06-09  |  523 b   |  14 lines
  1. /* This is a time delay loop, NOT very accurate, but it does the job */
  2. #linklib ARCO:LIB/ArCoLIB.lib    /* This is the link library I want to */
  3.                 /* add this function to */
  4. TIMEDELAY:            /* This is the name of the function */
  5. PARSE ARG number        /* So the object file will be 'timedelay.o */
  6.  
  7. CALL time 'R'            /* reset the timer */
  8. DO WHILE time('E') < number    /* just loop whilst elapsed time is less */
  9.     nop            /* than the required time */
  10. end
  11. RETURN                /* once the required criteria has been met */
  12.                 /* return control */
  13.  
  14.